perm filename TOOT1[SCR,LCS] blob
sn#454694 filedate 1980-06-23 generic text, type C, neo UTF8
COMMENT ā VALID 00002 PAGES
C REC PAGE DESCRIPTION
C00001 00001
C00002 00002 PRECEDE < Preliminary things
C00003 ENDMK
Cā;
PRECEDE; < Preliminary things
FUNC EXAMP.FUN[INS,MUS]; < Get functions from EXAMP.FUN[INS,MUS]
*
REVRB 0 0 1; < One "note" only
P2 6; < should be at least 2-3" longer than
END; < total of all instruments
TOOT;
P2 RHY/4/8//2/FINE; < quarter note, 2 eighths, half
P3 NOT/G4/A/B/C5; < G4 = G above middle C
P4 1; < maximum amplitude
P5 F1; < amplitude function
P6 F6; < waveform ("SYNTH") function
P7 .05; < percentage (0 ā 1) of reverberation
END;